home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / other / gui4cli / docs / tutorials / textin.gc < prev    next >
Text File  |  1999-05-14  |  2KB  |  72 lines
  1. G4C
  2.  
  3. ; -----------------------------------------------------------
  4. ;  xTEXTIN gadget example (setting of Attributes etc)
  5. ; -----------------------------------------------------------
  6.  
  7. WINBIG 170 70 283 102 'TextIn Attributes'
  8. WinType 11110001
  9.  
  10. xOnLoad
  11.     GuiOpen #This
  12.  
  13. xOnClose
  14.     GuiQuit #This
  15.  
  16. Box 0 0 0 0 out button
  17.  
  18. ; -----------------------------------------------------------
  19. ;  4 simple textin gadgets with the TITYPE attribute set
  20. ; -----------------------------------------------------------
  21.  
  22. XTEXTIN 81 3 195 15 "Int" txt "" 100
  23.     gadid 1
  24.     attr titype int
  25.  
  26. XTEXTIN 81 18 195 15 "Float" txt "" 100
  27.     gadid 2
  28.     attr titype float
  29.  
  30. XTEXTIN 81 33 195 15 "Hex" txt "" 100
  31.     gadid 3
  32.     attr titype hex
  33.  
  34. XTEXTIN 81 48 195 15 "Upper" txt "" 100
  35.     gadid 4
  36.     attr titype upper
  37.  
  38. ; -----------------------------------------------------------
  39. ;  Set the type dynamically
  40. ; -----------------------------------------------------------
  41.  
  42. XCYCLER 9 66 92 15 "" type
  43.     CSTR Normal    STRING
  44.     CSTR Int        INT
  45.     CSTR Float    FLOAT
  46.     CSTR Hex        HEX
  47.     CSTR Date    DATE
  48.     CSTR Upper    UPPER
  49.     CSTR Lower    LOWER
  50.  
  51.     ; set the type of the textin gad below.
  52.     setattr textin.gc/5 TITYPE $type
  53.  
  54.  
  55. XTEXTIN 105 66 172 16 "" txt "" 100
  56.     gadid 5
  57.     ; this starts off as normal (i.e. enter anything)
  58.  
  59. ; -----------------------------------------------------------
  60. ;    Print some info on the current textin gadget
  61. ; -----------------------------------------------------------
  62.  
  63. XBUTTON 195 84 81 14 "Info"
  64.  
  65.     ezreq 'Cursor position: $$ti.pos\nText length: $$ti.length\nAddress: $$ti.gui $$ti.id\n' OK ''
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.